home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / util / dir / BrowserII_v3.lha / BrowserII_v3 / S / Extract < prev    next >
Encoding:
AmigaDOS Script File  |  1995-04-04  |  826 b   |  51 lines
  1. .key File/A,Pattern/K
  2. .bra «
  3. .ket »
  4. .def Pattern "#?"
  5.  
  6. UnSet FileType
  7. For "«File»" FTV=FileType D=1
  8.  
  9. IF "$FileType" EQ "LHArc"
  10.     Lha -x -m e "«File»"
  11.     Set Error $RC
  12. Else
  13. IF "$FileType" EQ "Lzx"
  14.     Lzx -x -m e "«File»"
  15.     Set Error $RC
  16. Else
  17. IF "$FileType" EQ "Tar"
  18.     gnutar -xf "«File»"
  19.     Set Error $RC
  20. Else
  21. IF "$FileType" EQ "TarGZ"
  22.     echo Unzip...
  23.     Stack 30000
  24.     gzip -dc "«File»" >tmp_tar_file_$process.tar
  25.     IF $RC EQ 0
  26.         gnutar -xf tmp_tar_file_$process.tar
  27.     EndIF
  28.     Set Error $RC
  29.     delete >NIL: tmp_tar_file_$process.tar
  30. Else
  31. IF "$FileType" EQ "Zoo"
  32.     Zoo x// "«File»"
  33.     Set Error $RC
  34. Else
  35.     Echo "Unknown archive format '$FileType'"
  36.     Echo >SPEAK: "Extract Failed;"
  37.     Ask "Press RETURN..."
  38.     Quit
  39. EndIF
  40. EndIF
  41. EndIF
  42. EndIF
  43. EndIF
  44.  
  45. IF $Error GT 0
  46.     Echo "Error extracting «File»."
  47.     Echo >SPEAK: "Extract Failed;"
  48.     Ask "Press RETURN..."
  49. EndIF
  50.  
  51.